home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dvc_cntl / volume / volume.bas < prev    next >
BASIC Source File  |  1995-06-24  |  2KB  |  38 lines
  1. Option Explicit
  2.  
  3. Declare Function auxGetNumDevs Lib "MMSystem.DLL" () As Integer
  4. Type AUXCAPS
  5.   wMid As Integer               'Manufacturer ID
  6.   wPid As Integer               'Product ID
  7.   vDriverVersion As Integer     'Version of the Driver
  8.   szPname As String * 80        'Product Name (NULL-Terminated String)
  9.   wTechnology As Integer        'Type of Device
  10.   dwSupport As Long             'Functionality Supported by Driver
  11. End Type
  12.   'Flags for the wTechnology Field in the AUXCAPS Structure.
  13.   Global Const AUXCAPS_CDAUDIO = 1        'Audio output from an internal CD-ROM drive.
  14.   Global Const AUXCAPS_AUXIN = 2          'Audio output from auxiliary input jacks.
  15.   'Flags for the dwSupport Field in the AUXCAPS Structure.
  16.   Global Const AUXCAPS_VOLUME = &H1       'Supports volume control.
  17.   Global Const AUXCAPS_LRVOLUME = &H2     'Supports separate left and right volume control.
  18.  
  19. Global Const MMSYSERR_BASE = 0
  20. Global Const MMSYSERR_BADDEVICEID = (MMSYSERR_BASE + 2)     'Specified device ID is out of range.
  21. Global Const MMSYSERR_NODRIVER = (MMSYSERR_BASE + 6)        'The driver failed to install.
  22.  
  23. Declare Function auxGetDevCaps Lib "MMSystem.DLL" (ByVal wDeviceID As Integer, lpCaps As AUXCAPS, ByVal wSize As Integer) As Integer
  24.  
  25. Declare Function auxGetVolume Lib "mmsystem.dll" (ByVal wDeviceID As Integer, lpdwVolume As Long) As Integer
  26.  
  27. Declare Function auxSetVolume Lib "mmsystem.dll" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
  28.  
  29. Type CnvrtIVolumesType
  30.   LeftVolume As Integer
  31.   RightVolume As Integer
  32. End Type
  33.  
  34. Type CnvrtLVolumeType
  35.   Volume As Long
  36. End Type
  37.  
  38.